perm filename DATA[901,BGB] blob
sn#129561 filedate 1974-11-12 generic text, type T, neo UTF8
00100 TITLE DATA
00200 INTERNAL NUMTRI,TRIBLKS,TRITAB,INPUT3,INPUT6,FFLAG,INPUT5,OUTPDL
00300 INTERNAL ENDPDL,END6
00400 NUMTRI: 20
00500 TRIBLKS: 0
00600 BLOCK 400
00700 TRITAB: 0
00800 BLOCK 40
00900 INPUT3:
01000 DEFINE TRIANG (X1,Y1,Z1,X2,Y2,Z2,X3,Y3,Z3,N)
01100 {
01200 XWD X1,Y1
01300 XWD X2,Y2
01400 XWD X3,Y3
01500 XWD Z1,Z2
01600 XWD Z3,N
01700 ⎇
01800
01900 DEFINE QUAD (X1,Y1,X2,Y2,Z12,X3,Y3,X4,Y4,Z34)
02000 {
02100 TRIANG X1,Y1,Z12,X2,Y2,Z12,X3,Y3,Z34,5
02200 TRIANG X1,Y1,Z12,X3,Y3,Z34,X4,Y4,Z34,6
02300 ⎇
02400
02500 QUAD -500,-700,-500,-200, 200, 440,-200, 440,-700,200
02600 QUAD -440,-100,-440, 200, 600, 300, -40,300,-600, 100
02700 QUAD 0,100,0,500,100,440,500,440,100,100
02800 QUAD -440,400,-440,700,600,-240,700,-240,400,600
02900 QUAD 0,500,440,500,100,-240,700,-440,700,600
03000 QUAD 0,100,440,100,100,-240,400,-440,400,600
03100 QUAD 440,100,440,500,100,-240,700,-240,400,600
03200 QUAD 0,100,0,500,100,-440,700,-440,400,600
03205
03210 FFLAG: -1 ;FRAME FLAG
03215 OUTPDL: .+3
03220
03225 INPUT5: XWD 1200,INPUT3
03230 XWD -500,-500
03235 BLOCK 14000
03236 ENDPDL: 0 ↔ 0 ↔ 0 ↔ 0
03240 INPUT6: 0
03260 BLOCK 40000
03261 END6: 0 ↔ 0 ↔ 0 ↔ 0
03300 END